home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / dev / mui / urltext.lha / Urltext / Developer / E / Demos / Urltext.e next >
Encoding:
Text File  |  2002-01-25  |  3.7 KB  |  96 lines
  1. -> converted to E by Jean Holzammer (Development@Holzammer.net) 13.07.2001
  2.  
  3. OPT PREPROCESS
  4.  
  5. MODULE 'muimaster','libraries/mui','mui/urltext_mcc','tools/boopsi','utility/tagitem','utility/hooks'
  6.  
  7. OBJECT app_obj
  8.   app      :   PTR TO LONG
  9. ENDOBJECT
  10.  
  11. DEF app:PTR TO app_obj,running=TRUE,signals,dummy
  12. DEF mwin,u0,u1,u2,u3,t0
  13.  
  14. PROC main()
  15.   IF muimasterbase:=OpenLibrary('muimaster.library',MUIMASTER_VMIN)
  16.     NEW app.create()
  17.     IF app.app
  18.       app.init_notifications()
  19.       WHILE running
  20.         signals:=0
  21.         dummy:=domethod(app.app,[MUIM_Application_Input,{signals}])
  22.         SELECT dummy
  23.         CASE MUIV_Application_ReturnID_Quit
  24.           running:=FALSE
  25.         ENDSELECT
  26.         IF running=TRUE AND signals<>0 THEN Wait(signals)
  27.       ENDWHILE
  28.       app.dispose()
  29.     ELSE
  30.       PrintF('Can''t create the Application object\n')
  31.     ENDIF
  32.     CloseLibrary(muimasterbase)
  33.   ELSE
  34.     PrintF('Can''t open muimaster.library\n')
  35.   ENDIF
  36. ENDPROC
  37.  
  38. PROC urlTextObject(url,text,font) IS UrltextObject,
  39.                                        MUIA_Font,font,
  40.                                        MUIA_Urltext_Text,text,
  41.                                        MUIA_Urltext_Url,url,
  42.                                      End
  43.  
  44.  
  45. PROC create() OF app_obj
  46.  
  47.   self.app:=ApplicationObject,
  48.     MUIA_Application_Title , 'Urltext' ,
  49.     MUIA_Application_Version , '$VER: Urltext 1.0 (10.7.2001)' ,
  50.     MUIA_Application_Copyright , 'Copyright 2001 by Alfonso Ranieri' ,
  51.     MUIA_Application_Author , 'Alfonso Ranieri' ,
  52.     MUIA_Application_Description , 'Urltext example' ,
  53.     MUIA_Application_Base , 'URLTEXT' ,
  54.     SubWindow,mwin:=WindowObject,
  55.                         MUIA_Window_Title,'Urltext example',
  56.                         MUIA_Window_ID,"MWIN",
  57.  
  58.                         WindowContents, VGroup,
  59.                           Child, VSpace(0),
  60.                           Child, HGroup,
  61.                             Child, HSpace(0),
  62.                             Child, ColGroup(3),
  63.                               Child, u0:=urlTextObject('http://web.tiscalinet.it/amiga/','Alfie\as home page',MUIV_Font_Big),
  64.                               Child, HSpace(8),
  65.                               Child, u1:=urlTextObject('http://web.tiscalinet.it/amiga/rxmui','RxMUI home page',MUIV_Font_Normal),
  66.                               Child, u2:=urlTextObject('http://www.egroups.co/group/rxmui','RxMUi mail list',MUIV_Font_Normal),
  67.                               Child, HSpace(8),
  68.                               Child, u3:=urlTextObject('mailto:alforan@tin.it','Alfonso Ranieri',MUIV_Font_Normal),
  69.                             End,
  70.                             Child, HSpace(0),
  71.                           End,
  72.                           Child, VSpace(0),
  73.                           Child, t0:=TextObject,
  74.                             MUIA_Frame,         MUIV_Frame_Text,
  75.                             MUIA_Background,    MUII_TextBack,
  76.                             MUIA_Text_PreParse, '\\33c',
  77.                         End,
  78.               End,
  79.     End,
  80.   End
  81. ENDPROC self.app
  82.  
  83. PROC dispose() OF app_obj IS Mui_DisposeObject(self.app)
  84.  
  85. PROC init_notifications() OF app_obj
  86.   domethod(mwin,[MUIM_Notify, MUIA_Window_CloseRequest,MUI_TRUE,self.app,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit])
  87.  
  88.   domethod(u0,[MUIM_Notify,MUIA_Urltext_Url,MUIV_EveryTime,t0,3,MUIM_Set,MUIA_Text_Contents,MUIV_TriggerValue])
  89.   domethod(u1,[MUIM_Notify,MUIA_Urltext_Url,MUIV_EveryTime,t0,3,MUIM_Set,MUIA_Text_Contents,MUIV_TriggerValue])
  90.   domethod(u2,[MUIM_Notify,MUIA_Urltext_Url,MUIV_EveryTime,t0,3,MUIM_Set,MUIA_Text_Contents,MUIV_TriggerValue])
  91.   domethod(u3,[MUIM_Notify,MUIA_Urltext_Url,MUIV_EveryTime,t0,3,MUIM_Set,MUIA_Text_Contents,MUIV_TriggerValue])
  92.  
  93.   set(mwin,MUIA_Window_Open,MUI_TRUE)
  94. ENDPROC
  95.  
  96.